﻿Imports System
Imports System.ServiceModel.Channels
Imports System.Xml

Namespace Services.Amazon
    Public Class AmazonHeader
        Inherits MessageHeader
        Private m_name As String
        Private value As String

        Public Sub New(ByVal name As String, ByVal value As String)
            Me.m_name = name
            Me.value = value
        End Sub

        Public Overrides ReadOnly Property Name() As String
            Get
                Return m_name
            End Get
        End Property
        Public Overrides ReadOnly Property [Namespace]() As String
            Get
                Return "http://security.amazonaws.com/doc/2007-01-01/"
            End Get
        End Property

        Protected Overrides Sub OnWriteHeaderContents(ByVal xmlDictionaryWriter As XmlDictionaryWriter, ByVal messageVersion As MessageVersion)
            xmlDictionaryWriter.WriteString(value)
        End Sub
    End Class
End Namespace
